Revista CD Expert 8/Revista CD Expert nº 08 CD1.iso/Utilitarios/Especiais/Hotdog 5.5/hotdog55install.exe/%MAINDIR%/HotDog5.exe/0/RCDATA/TFRMTHUMBNAILTOHTML/TFRMTHUMBNAILTOHTML.txt

Text File | 1999-04-29 | 10.3 KB | 431 lines

object frmThumbnailToHTML: TfrmThumbnailToHTML
  Left = 351
  Top = 210
  BorderIcons = [biSystemMenu, biHelp]
  BorderStyle = bsDialog
  Caption = 'Insert Image Thumbnail Table'
  ClientHeight = 276
  ClientWidth = 405
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Pitch = fpVariable
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object wizThumbNail: TWizard
    Left = 0
    Top = 0
    Width = 405
    Height = 276
    Image = imgWizard
    FinishCaption = '&Finish'
    CancelCaption = 'Cancel'
    HelpCaption = '&Help'
    BackCaption = '<  &Back'
    NextCaption = '&Next  >'
    StartPage = WizardPage1
    ActivePage = WizardPage6
    TabsVisible = True
    NextAutoFinish = True
    NextAutoDisable = True
    FinishAutoEnable = True
    ButtonsVisible = [wbCancel, wbNext, wbBack]
    ButtonsEnabled = [wbCancel, wbHelp, wbFinish, wbNext, wbBack]
    ButtonPanelStyle = bvRaised
    OnCancel = wizThumbNailCancel
    OnFinish = wizThumbNailFinish
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
    object WizardPage1: TWizardPage
      Caption = 'Wizard Page 1'
      NextPage = WizardPage2
      object Label2: TLabel
        Left = 139
        Top = 15
        Width = 244
        Height = 52
        Caption =
          'This wizard will automatically create thumbnails from your image' +
          's and make a HTML table from the thumbnails. When the page is vi' +
          'ewed, clicking on the thumbnail will display the full sized imag' +
          'e.'
        WordWrap = True
      end
    end
    object WizardPage2: TWizardPage
      Caption = 'Wizard Page 2'
      NextPage = WizardPage3
      OnPageNext = WizardPage2PageNext
      object btnSaveDir: TSpeedButton
        Left = 355
        Top = 105
        Width = 21
        Height = 20
        OnClick = btnSaveDirClick
      end
      object btnDirectory: TSpeedButton
        Left = 355
        Top = 40
        Width = 21
        Height = 20
        OnClick = btnDirectoryClick
      end
      object Label8: TLabel
        Left = 150
        Top = 23
        Width = 249
        Height = 13
        Caption = 'Select the directory where your images are located.'
      end
      object Label1: TLabel
        Left = 151
        Top = 75
        Width = 242
        Height = 24
        AutoSize = False
        Caption = 'Select the directory where you wish to save the thumbnails.'
        WordWrap = True
      end
      object Label13: TLabel
        Left = 151
        Top = 135
        Width = 238
        Height = 54
        AutoSize = False
        Caption =
          'Select the option below to copy the original images into the sam' +
          'e directory as the thumbnails. If this option is not selected, t' +
          'he thumbnail links will point to the original images directory.'
        WordWrap = True
      end
      object txtDirectory: TEdit
        Left = 150
        Top = 40
        Width = 205
        Height = 21
        HelpContext = 630
        TabOrder = 0
      end
      object txtDestDir: TEdit
        Left = 150
        Top = 105
        Width = 204
        Height = 21
        HelpContext = 631
        TabOrder = 1
      end
      object chkCopyOrig: TCheckBox
        Left = 211
        Top = 192
        Width = 114
        Height = 16
        HelpContext = 632
        Caption = 'Copy original images'
        TabOrder = 2
      end
    end
    object WizardPage3: TWizardPage
      Caption = 'Wizard Page 3'
      NextPage = WizardPage4
      object Label3: TLabel
        Left = 212
        Top = 44
        Width = 31
        Height = 13
        Caption = 'Height'
      end
      object Label4: TLabel
        Left = 273
        Top = 44
        Width = 28
        Height = 13
        Caption = 'Width'
      end
      object Label6: TLabel
        Left = 151
        Top = 19
        Width = 246
        Height = 16
        AutoSize = False
        Caption = 'Enter the size (in pixels) of the thumbnail images.'
        WordWrap = True
      end
      object Label7: TLabel
        Left = 151
        Top = 137
        Width = 227
        Height = 16
        AutoSize = False
        Caption = 'Select the file format to save the thumbnails in.'
        WordWrap = True
      end
      object txtHeight: TSausEdit
        Left = 209
        Top = 60
        Width = 39
        Height = 21
        HelpContext = 633
        TabOrder = 0
        Text = '70'
        NumericOnly = True
        AllowDecimal = False
        DecimalPlaces = 0
        Max = 200
        Min = 20
        Version = '1.4'
        FileGlyph = sgOpen
        RegStore = False
      end
      object txtWidth: TSausEdit
        Left = 269
        Top = 60
        Width = 38
        Height = 21
        HelpContext = 633
        TabOrder = 1
        Text = '70'
        NumericOnly = True
        AllowDecimal = False
        DecimalPlaces = 0
        Max = 200
        Min = 20
        Version = '1.4'
        FileGlyph = sgOpen
        RegStore = False
      end
      object chkAspect: TCheckBox
        Left = 192
        Top = 89
        Width = 149
        Height = 16
        HelpContext = 634
        Caption = 'Keep image aspect ratio'
        State = cbChecked
        TabOrder = 2
      end
      object optJPG: TRadioButton
        Left = 275
        Top = 166
        Width = 39
        Height = 16
        HelpContext = 635
        Caption = 'JPG'
        TabOrder = 4
      end
      object optGif: TRadioButton
        Left = 207
        Top = 166
        Width = 46
        Height = 16
        HelpContext = 635
        Caption = 'GIF'
        Checked = True
        TabOrder = 3
        TabStop = True
      end
    end
    object WizardPage4: TWizardPage
      Caption = 'Wizard Page 4'
      NextPage = WizardPage5
      object Label9: TLabel
        Left = 151
        Top = 23
        Width = 234
        Height = 56
        AutoSize = False
        Caption =
          'Select the image information you wish to display in the thumbnai' +
          'l table. These details will correspond to the original image, no' +
          't the thumbnail.'
        WordWrap = True
      end
      object chkFileName: TCheckBox
        Left = 219
        Top = 90
        Width = 124
        Height = 16
        HelpContext = 636
        Caption = 'File name'
        State = cbChecked
        TabOrder = 0
      end
      object chkFileSize: TCheckBox
        Left = 219
        Top = 113
        Width = 132
        Height = 16
        HelpContext = 636
        Caption = 'File size (bytes)'
        State = cbChecked
        TabOrder = 1
      end
      object chkImageSize: TCheckBox
        Left = 219
        Top = 135
        Width = 142
        Height = 16
        HelpContext = 636
        Caption = 'Image size (pixels)'
        State = cbChecked
        TabOrder = 2
      end
    end
    object WizardPage5: TWizardPage
      Caption = 'Wizard Page 5'
      object Label5: TLabel
        Left = 226
        Top = 53
        Width = 129
        Height = 13
        Caption = 'Number of columns in table'
      end
      object Label10: TLabel
        Left = 151
        Top = 19
        Width = 234
        Height = 34
        AutoSize = False
        Caption = 'Enter the number of columns in the thumbnail HTML table.'
        WordWrap = True
      end
      object Label11: TLabel
        Left = 151
        Top = 106
        Width = 227
        Height = 29
        AutoSize = False
        Caption = 'Select the option below to show a border on the HTML table.'
        WordWrap = True
      end
      object Label12: TLabel
        Left = 151
        Top = 177
        Width = 234
        Height = 16
        AutoSize = False
        Caption = 'Click Next to create the thumbnails and HTML.'
        WordWrap = True
      end
      object chkShowBorder: TCheckBox
        Left = 210
        Top = 137
        Width = 125
        Height = 16
        HelpContext = 638
        Caption = 'Show table border'
        TabOrder = 1
      end
      object txtColumns: TSausEdit
        Left = 196
        Top = 49
        Width = 23
        Height = 21
        HelpContext = 637
        TabOrder = 0
        Text = '4'
        NumericOnly = True
        AllowDecimal = False
        DecimalPlaces = 0
        Max = 99
        Min = 0
        Version = '1.4'
        FileGlyph = sgOpen
        RegStore = False
      end
      object i1: TPMultiImage
        Left = 15
        Top = 26
        Width = 31
        Height = 28
        GrabHandCursor = 5
        Scrolling = True
        B_W_CopyFlags = [C_DEL]
        ILUndo = False
        Color = clBtnFace
        ImageName = 'file not found'
        ImageReadRes = lAutoMatic
        BlitMode = sLight
        ImageWriteRes = sAutoMatic
        TifSaveCompress = sNONE
        TiffPage = 1
        TiffAppend = False
        JPegSaveQuality = 60
        JPegSaveSmooth = 0
        OnProgress = i1Progress
        RubberBandBtn = mbLeft
        ParentColor = True
        TextLeft = 0
        TextTop = 0
        TextRotate = 0
        TabOrder = 2
        TabStop = False
        Visible = False
        ZoomBy = 10
      end
    end
    object WizardPage6: TWizardPage
      Caption = 'Wizard Page 6'
      object Label14: TLabel
        Left = 151
        Top = 75
        Width = 46
        Height = 13
        Caption = 'Progress:'
      end
      object imgWizard: TPaintBox
        Left = 9
        Top = 8
        Width = 104
        Height = 211
        OnPaint = imgWizardPaint
      end
      object lblStatus: TLabel
        Left = 150
        Top = 112
        Width = 220
        Height = 19
        AutoSize = False
        Caption = 'Status : '
      end
      object Button1: TButton
        Left = 213
        Top = 140
        Width = 94
        Height = 29
        Cancel = True
        Caption = '&Stop processing'
        TabOrder = 0
        OnClick = Button1Click
      end
      object ProgBar: TProgressBar
        Left = 151
        Top = 90
        Width = 219
        Height = 16
        Min = 0
        Max = 100
        TabOrder = 1
      end
    end
  end
  object btnHelp: TButton
    Left = 8
    Top = 245
    Width = 70
    Height = 25
    Caption = '&Help'
    TabOrder = 1
    OnClick = btnHelpClick
  end
end